home *** CD-ROM | disk | FTP | other *** search
/ Exploring Aeronautics / NASA Exploring Aeronautics.iso / pc / source / tools.dxr / Internal_1_main.ls < prev    next >
Encoding:
Text File  |  1998-06-02  |  2.0 KB  |  56 lines
  1. global gMain, gButtonManager, gModule2, gSoundManager, gMovie, gMovieList, gVoid, gQtvrHandler, gMediaPlayer
  2.  
  3. on startMovie
  4.   initMain()
  5.   mClearButtons(gButtonManager)
  6.   mAddButton(gButtonManager, 35, "nasaButton", "mGoToMovie(gMain, #main)")
  7.   mAddButton(gButtonManager, 36, "page1Button", "mGoToPage(gModule2, 1)")
  8.   mAddButton(gButtonManager, 37, "page2Button", "mGoToPage(gModule2, 2)")
  9.   mAddButton(gButtonManager, 38, "page3Button", "mGoToPage(gModule2, 3)")
  10.   mAddButton(gButtonManager, 39, "page4Button", "mGoToPage(gModule2, 4)")
  11.   mAddButton(gButtonManager, 40, "page5Button", "mGoToPage(gModule2, 5)")
  12.   set gMovie to new(script "quickTimeObjectScript", 47, point(356, 216))
  13.   initQTVR()
  14.   set qtvrSprite to 29
  15.   set gQtvrHandler to new(script "qtvrObjectScript", qtvrSprite)
  16.   set gMovieList to new(script "movieListObjectScript")
  17.   mAddMovies(gMovieList, #page1, ["tools.mov"])
  18.   mAddMovies(gMovieList, #page2, ["comp1.mov", "comp2.mov", "comp3.mov", "comp4.mov", "f18qtvr.mov"])
  19.   mAddMovies(gMovieList, #page3, ["wind1.mov", "wind2.mov", "wind3.mov", "wind4.mov", "windqtvr.mov"])
  20.   mAddMovies(gMovieList, #page4, ["sim1.mov", "sim2.mov", "sim3.mov", "sim4.mov"])
  21.   mAddMovies(gMovieList, #page5, ["ft1.mov", "ft2.mov", "ft3.mov", "ft4.mov", "bionic.mov"])
  22.   set gPopUp to new(script "popupobjectscript")
  23.   mSetcustomMovieDoneHandler(gMovie, "mSetDefaultHeading(gMovieList)")
  24.   puppetSprite(14, 1)
  25. end
  26.  
  27. on stopMovieScript
  28.   mHideMovie(gMovie)
  29.   closeQTVR()
  30.   mdispose(gModule2)
  31.   mdispose(gQtvrHandler)
  32.   set gMovieList to gVoid
  33.   set gQtvrHandler to gVoid
  34.   mResetCustomMovieDoneHandler(gMovie)
  35. end
  36.  
  37. on playMovie anIndex
  38.   if anIndex then
  39.     set index to anIndex
  40.   else
  41.     set index to the clickOn - 19
  42.   end if
  43.   set aMovie to mGetMovie(gMovieList, mGetPageFrame(gModule2), index)
  44.   if aMovie = "f18qtvr.mov" then
  45.     set the visible of sprite 9 to 0
  46.   end if
  47.   mPlayMedia(gMediaPlayer, aMovie)
  48. end
  49.  
  50. on panoBackground trueOrFalse
  51. end
  52.  
  53. on resetSlate
  54.   set the visible of sprite 9 to 1
  55. end
  56.